﻿Public Class Solicitud_SeleccionFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.Solicitud_SeleccionFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Solicitud_SeleccionFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.Solicitud_SeleccionFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Solicitud_SeleccionFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.Solicitud_SeleccionFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Solicitud_SeleccionFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la Solicutud de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.Solicitud_SeleccionFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la Solicutud de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Solicitud_SeleccionFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Solicitud_Seleccions")
        Me.codigo = Utils.Enumeradores.Excepeciones.Solicitud_SeleccionFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Solicitud_Seleccion"
        Me.innerException2 = innerException
    End Sub
End Class
